home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 252 / gemsrc / math.mod < prev    next >
Encoding:
Modula Implementation  |  1988-02-13  |  639 b   |  33 lines
  1. IMPLEMENTATION MODULE Math;
  2.  
  3.  
  4.    (*------------------------------------------------------------------*)
  5.  
  6.    PROCEDURE Max ( Left  : INTEGER;
  7.                    Right : INTEGER ) : INTEGER;
  8.  
  9.    BEGIN
  10.       IF Left > Right THEN
  11.          RETURN ( Left )
  12.       ELSE
  13.          RETURN ( Right )
  14.       END;
  15.    END Max;
  16.  
  17.    (*------------------------------------------------------------------*)
  18.  
  19.    PROCEDURE Min ( Left  : INTEGER;
  20.                    Right : INTEGER ) : INTEGER;
  21.  
  22.    BEGIN
  23.       IF Left < Right THEN
  24.          RETURN ( Left )
  25.       ELSE
  26.          RETURN ( Right )
  27.       END;
  28.    END Min;
  29.  
  30.  
  31. END Math.
  32.  
  33.